unit EMSIniFiles;
{$I QBuilderVerCtrl.inc}
interface

uses
  {$IFDEF VCL16}
    System.Classes,
    System.IniFiles,
    System.SysUtils;
  {$ELSE}
    Classes,
    IniFiles,
    SysUtils;
  {$ENDIF}


type
  {$IFDEF VER200}
  TEMSIniFile = class(TMemIniFile)
  {$ELSE}
  TEMSIniFile = class(TIniFile)
  {$ENDIF}
  public
    constructor Create(const FileName: string); overload;
    destructor Destroy; override;
  end;


implementation

{ TEMSIniFile }

constructor TEMSIniFile.Create(const FileName: string);
begin
  {$IFDEF VER200}
  inherited Create(Filename);
  Encoding := TEncoding.Unicode;
  {$ELSE}
  inherited Create(Filename);
  {$ENDIF}
end;

destructor TEMSIniFile.Destroy;
begin
  {$IFDEF VER200}
  UpdateFile;
  {$ENDIF}
  inherited Destroy;
end;

end.
